Main Text Figures

comb_epr_plot = comb_preds %>% 
  filter(metric == "EPR") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), filter(comb_d, metric == "EPR"), size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), filter(comb_boot_conf_preds, metric == "EPR"), fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), linewidth = 2) +
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Egg Production Rate \n(eggs/female/day)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_hs_plot = comb_preds %>% 
  filter(metric == "HF") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), filter(comb_d, metric == "HF"), size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), filter(comb_boot_conf_preds, metric == "HF"), fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), size = 2) +
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Hatching Success \n(%)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_rf_plot = comb_preds %>% 
  filter(metric == "RF") %>% 
  ggplot() +
  geom_point(aes(temp, rate, colour = curve_id), filter(comb_d, metric == "RF"), size = 1.5, alpha = 0.6, 
             position = position_jitter(width = 0.5, height = 0)) +
  geom_ribbon(aes(temp, ymin = conf_lower, ymax = conf_upper, group = curve_id), filter(comb_boot_conf_preds, metric == "RF"), fill = 'grey60', alpha = 0.3) +
  geom_line(aes(temp, .fitted, col = curve_id), size = 2) +
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  labs(x = "Temperature (degrees C)", 
       y = "Production \n(offspring/female/day)",
       colour = "Month") + 
  theme_matt(base_size = 12)

comb_tsc = ggplot(comb_surv, aes(x=Temp, y=Surv, colour=Month)) + 
  geom_point(size=1.5, position=position_jitter(width=0.1, height=0.03)) +
  xlab("Stress Temperature")+
  ylab("Survivorship \n(proportion survived)")+
  labs(colour = "Month") + 
  geom_hline(yintercept = 0.5, linetype = "dashed") +
  geom_smooth(method = "glm", method.args = list(family = "binomial"), se=T, size = 2) +
  scale_y_continuous(breaks = c(0,1)) + 
  #scale_color_brewer(type = "div", palette = 5, direction = -1) + 
  #scale_color_viridis_d(option = "mako") + 
  scale_colour_manual(values = comb_colors) + 
  theme_matt(base_size = 12)

ggarrange(comb_epr_plot, comb_hs_plot, comb_rf_plot, comb_tsc, 
          ncol = 2, nrow = 2,
          common.legend = T, legend = "bottom", labels = "AUTO")

combined_opt_coll = comb_params %>% 
  filter(metric == "RF" & term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = estimate, shape = species)) + 
  geom_smooth(data = filter(comb_params, metric == "RF" & term == "topt" & curve_id != "November_2"),
              method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Optimum (degrees C)") + 
  xlab("Collection Temperature (degrees c)") + 
  labs(colour = "Month") + 
  theme_matt(base_size = 12)

combined_opt_diff = comb_params %>% 
  filter(metric == "RF" & term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = margin, shape = species)) +
  geom_hline(yintercept = 0, size =1, linetype = "dashed") +
  geom_smooth(data = filter(comb_params, metric == "RF" & term == "topt" & curve_id != "November_2"),
              method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  ylab("Margin (degrees C)") + 
  xlab("Collection Temperature (degrees c)") + 
  scale_shape_manual(values = c(16,21)) + 
  theme_matt(base_size = 12) 

combined_ld_coll = ggplot(combined_tolerance, aes(x = Coll_temp, y = LD50, shape = species)) + 
  geom_smooth(method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Thermal Tolerance (degrees C)") + 
  xlab("Collection Temperature (degrees c)") + 
  theme_matt(base_size = 12)

combined_ld_diff = ggplot(combined_tolerance, aes(x = Coll_temp, y = margin, shape = species)) +
  geom_smooth(method = "lm", colour = "grey50") + 
  geom_point(size = 3, stroke = 1) + 
  scale_shape_manual(values = c(16,21)) + 
  ylab("Warming Tolerance (degrees C)") + 
  xlab("Collection Temperature (degrees c)") + 
  theme_matt(base_size = 12)

ggarrange(combined_opt_coll, combined_opt_diff, combined_ld_coll, combined_ld_diff, ncol = 2, nrow = 2, common.legend = T,
          legend = "bottom", labels = "AUTO")

F0_rf_summary$month = factor(F0_rf_summary$month, levels = c("June", "August", "November"))
F0_rf_summary$duration = factor(F0_rf_summary$duration, levels = c("short", "long"))
F0_dur_summary$month = factor(F0_dur_summary$month, levels = c("June", "August", "November"))

param_list = list("colour" = "black",
                  "width" = 0.2) 

RF_short_db = plot(F0_RF_short, 
                   axes.title.fontsize = 10,
                   tick.fontsize = 10,
                   effsize.markersize = 3,
                   swarmplot.params = param_list,
                   rawplot.ylabel = "Production",
                   theme = ggpubr::theme_pubr())

RF_long_db = plot(F0_RF_long, 
                  axes.title.fontsize = 10,
                  tick.fontsize = 10,
                  effsize.markersize = 3,
                  swarmplot.params = param_list,
                  rawplot.ylabel = "Production",
                  theme = ggpubr::theme_pubr())

b1 = ggplot() + theme_pubclean() + ggtitle("          Short Heat Waves")
b2 = ggplot() + theme_pubclean() + ggtitle("          Long Heat Waves")
F0_fecundity_plot = ggarrange(b1, RF_short_db, b2, RF_long_db, ncol = 1, nrow = 4, heights = c(0.1, 1, 0.1, 1))
x.axis_labels = c("1" = "short", "2" = "long", "3" = "short", "4" = "long")

F0_grid = F0_rf_summary %>% 
  mutate(month = fct_relevel(month, "June", "August", "November")) %>% 
  ggplot(aes(x = duration, y = difference, colour = trait, shape = duration)) + 
  facet_grid(. ~ month) + 
  geom_hline(yintercept = 0, colour = "black", size = 0.3) +
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, size = 1.3) + 
  geom_point(size = 5, fill = "white") + 
  scale_colour_manual(values = c("body size" = "grey75", "production" = "black")) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  scale_x_discrete(labels= x.axis_labels) +
  ggtitle("Direct Effects (F0)") + 
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  ylim(-1,1.1) + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5),
        legend.position = "none")

F1_summary = bind_rows(F1_rf_effect_size, F1_bs_effect_size) %>% 
  dplyr::select(variable, difference, 
                bca_ci_low, bca_ci_high, 
                month, duration, trait, generation, off_temp) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "production_short" ~ 1,
           order_code == "production_long" ~ 2,
           order_code == "body size_short" ~ 3,
           order_code == "body size_long" ~ 4),
         month = fct_relevel(month, "June", "August", "November"))

F1_summary$order_number = factor(F1_summary$order_number, levels = c(1,2,3,4))
F1_grid = ggplot(F1_summary, aes(x = order_number, y = difference, colour = trait, shape = duration, group = trait)) +
  facet_grid(off_temp ~ month, ) + 
  geom_hline(yintercept = 0, colour = "black", size = 0.3) +
  geom_line() + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, size = 1) + 
  geom_point(size = 3, fill = "white") + 
  scale_colour_manual(values = c("body size" = "grey75", "production" = "black")) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  xlim(0.5,4.5) + 
  scale_x_discrete(labels= x.axis_labels) +
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  ggtitle("Transgenerational Effects (F1)") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        strip.background.x = element_blank(),
        strip.text.x = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5))

ggarrange(F0_grid, F1_grid, nrow = 2, ncol = 1, heights = c(0.45,1), common.legend = T, legend = "right")

Supplemental Information

#field tpc parameters
comb_params %>%  
  mutate(curve_id = fct_relevel(curve_id, c("January", "February", "March", "April", "May", "June", 
                                            "July", "August", "September", "October", "November_1", "November_2"))) %>% 
  ggplot(aes(x = curve_id, y = estimate, colour = species)) +
  facet_wrap(term~metric, scales = 'free_y') + 
  geom_point(size = 4) +
  geom_linerange(aes(ymin = conf_lower, ymax = conf_upper)) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Month",
       y = "Parameter Estimate",
       colour = "Species") + 
  theme_bw(base_size = 16) +
  theme(panel.grid = element_blank(),
        axis.text.x = element_text(angle = 315, hjust = 0, vjust = 0.5))

#field tpc parameters
ggplot(comb_params, aes(x = growth_temp, y = estimate, colour = species)) +
  facet_wrap(term~metric, scales = 'free_y') + 
  geom_smooth(data = filter(comb_params, curve_id != "November_2"),
              method = "lm", se = F) + 
  geom_point(size = 4) +
  geom_linerange(aes(ymin = conf_lower, ymax = conf_upper)) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Collection Temperature (degrees C)",
       y = "Parameter Estimate",
       colour = "Species") + 
  theme_bw(base_size = 12) +
  theme(panel.grid = element_blank())

comb_params %>% 
  filter(term == "topt") %>% 
  ggplot(aes(x = growth_temp, y = margin, colour = species, group = species)) + 
  facet_grid(metric~., scales = 'free_y') + 
  geom_hline(yintercept = 0) +
  geom_smooth(data = filter(comb_params, term == "topt" & curve_id != "November_2"),
              method = "lm", se = F, size = 1, colour = "black") + 
  geom_point(size = 4) +
  scale_colour_manual(values = c("royalblue1", "indianred2")) + 
  labs(x = "Collection Temperature",
       y = "Safety Margin") + 
  theme_bw(base_size = 18) +
  theme(panel.grid = element_blank())

#Subsequent Rows
F1_hs_effect_size$trait = "success"
F1_hs_effect_size$generation = "F1"

F1_total_effect_size$trait = "epr"
F1_total_effect_size$generation = "F1"

F1_rf_effect_size$trait = "production"
F1_rf_effect_size$generation = "F1"

F1_bs_effect_size$trait = "body size"
F1_bs_effect_size$generation = "F1"

F0_data = bind_rows(F0_hs_summary, F0_total_summary,F0_rf_summary, F0_size_summary) %>% 
  dplyr::select(trait, difference, bca_ci_low, bca_ci_high, month, duration, trait, generation) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "total_short" ~ 1,
           order_code == "total_long" ~ 2,
           order_code == "success_short" ~ 3,
           order_code == "success_long" ~ 4,
           order_code == "production_short" ~ 5,
           order_code == "production_long" ~ 6,
           order_code == "size_long" ~ 7),
         month = fct_relevel(month, "June", "August", "November"),
         trait = fct_relevel(trait, "total", "success", "production", "size"),
         duration = fct_relevel(duration, "short", "long"),
         group_ID = paste(month, trait, sep = "_"))

F0_data$order_number = factor(F0_data$order_number, levels = c(1,2,3,4,5,6,7))


F1_data = bind_rows(F1_total_effect_size, F1_hs_effect_size, F1_rf_effect_size, F1_bs_effect_size) %>% 
  dplyr::select(trait, difference, bca_ci_low, bca_ci_high, month, duration, generation, off_temp) %>% 
  mutate("order_code" = paste(trait, duration, sep = "_"),
         "order_number" = case_when(
           order_code == "epr_short" ~ 1,
           order_code == "epr_long" ~ 2,
           order_code == "success_short" ~ 3,
           order_code == "success_long" ~ 4,
           order_code == "production_short" ~ 5,
           order_code == "production_long" ~ 6,
           order_code == "body size_short" ~ 7,
           order_code == "body size_long" ~ 8),
         trait = if_else(trait == "epr", "total", trait),
         month = fct_relevel(month, "June", "August", "November"),
         trait = fct_relevel(trait, "total", "success", "production", "size"),
         duration = fct_relevel(duration, "short", "long"))


F1_data$order_number = factor(F1_data$order_number, levels = c(1,2,3,4,5,6,7,8))

#Top row - F0 (direct effects)
x.axis_labels = c("1" = "short", "2" = "long", "3" = "short", "4" = "long", 
                  "5" = "short", "6" = "long", "7" = "short", "8" = "long")

F0_grid = ggplot(F0_data, aes(x = duration, y = difference, colour = trait, group = group_ID)) + 
  facet_grid(. ~ month) + 
  geom_line(position = position_dodge(width = 0.7),
            linewidth = 1) + 
  geom_hline(yintercept = 0, colour = "black", size = 0.3) +
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, size = 1, 
                position = position_dodge(width = 0.7)) + 
  geom_point(size = 4, fill = "white", position = position_dodge(width = 0.7)) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  scale_x_discrete(labels= x.axis_labels) +
  scale_colour_manual(values = c("size" = "darkgrey",
                                 "success" = "gold",
                                 "production" = "forestgreen",
                                 "total" = "cornflowerblue")) +  
  xlab("") +
  ylab("Effect Size\nHeatwave - Control") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5),
        legend.position = "none")

#Following three rows - F1 (transgeneration / indirect effects)
F1_grid = ggplot(F1_data, aes(x = duration, y = difference, colour = trait, group = trait)) + 
  facet_grid(off_temp ~ month, ) + 
  geom_hline(yintercept = 0, colour = "black", size = 0.3) +
  geom_line(position = position_dodge(width = 0.5),
            linewidth = 1) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high), width = 0, size = 1,
                position = position_dodge(width = 0.5)) + 
  geom_point(size = 3, fill = "white", position = position_dodge(width = 0.5)) + 
  scale_shape_manual(values = c("long" = 16, "short" = 21)) + 
  xlim(0.5,4.5) + 
  scale_x_discrete(labels= x.axis_labels) +
  scale_colour_manual(values = c("size" = "darkgrey",
                                 "success" = "gold",
                                 "production" = "forestgreen",
                                 "total" = "cornflowerblue")) + 
  xlab("") +
  ylab("Effect Size \nHeatwave - Control") + 
  theme_bw(base_size = 12) + 
  theme(panel.grid = element_blank(),
        strip.background.x = element_blank(),
        strip.text.x = element_blank(),
        axis.text = element_text(colour = "black"),
        axis.text.x = element_text(angle = -45, hjust = 0, vjust = 0.5))

ggarrange(F0_grid, F1_grid, nrow = 2, ncol = 1, heights = c(0.35,1), common.legend = T, legend = "right")

F0_fecundity_plot

#Effect of heatwave duration WITHIN treatment
F0_dur_summary %>% 
  mutate(month = fct_relevel(month, c("June", "August", "November"))) %>% 
  ggplot(aes(x = month, fill = treatment, y = difference)) + 
  geom_bar(stat = "identity", position = position_dodge(width = 0.9), colour = "black", size = 1) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                width = 0.1, size = 1,
                position = position_dodge(width = 0.9)) + 
  geom_hline(yintercept = 0) + 
  scale_fill_manual(values = c("grey30", "white")) + 
  labs(x = "",
       y = "Effect Size (Hedge's g) \n Long - Short events") + 
  theme_pubr(base_size = 18)

# How does heat wave duration affect transgenerational effects? Reaction norms shown below for effect size comparisons (heatwave - control) for different duration of parental exposure
F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  ggplot(aes(x = duration, y = difference, colour = month, group = ID)) + 
  facet_wrap(trait~.) + 
  geom_hline(yintercept = 0) + 
  geom_line(size = 1, position = position_dodge(width = 0.1)) + 
  geom_point(size = 2, position = position_dodge(width = 0.1)) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                size = 0.75, width = 0.1,
                position = position_dodge(width = 0.1)) + 
  labs(x = "Parental Exposure Duration", 
       y = "Effect Size (Hedge's g) \n Heatwave - Control") + 
  ylim(-5,5) + 
  theme_pubr(base_size = 18)

#Pulls out reaction norms where there's a sign change (changes from positive, neutral, or negative between duration groups) 

duration_effects = F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  group_by(ID, trait, duration) %>%  
  mutate("zero_diff" = case_when(
    sign(bca_ci_low) == sign(bca_ci_high) ~ "does not overlap zero",
    sign(bca_ci_low) != sign(bca_ci_high) ~ "overlaps zero"
  )) %>% 
  ungroup(duration) %>% 
  mutate("change" = case_when(
    sign(difference)[1] == sign(difference)[2] & zero_diff[1] == zero_diff[2] ~ "Same",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] == "overlaps zero" & zero_diff[2] == "overlaps zero" ~ "Same",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] == zero_diff[2] & zero_diff[1] == "does not overlap zero" ~ "Different",
    sign(difference)[1] != sign(difference)[2] & zero_diff[1] != zero_diff[2] ~ "Different",
    sign(difference)[1] == sign(difference)[2] & zero_diff[1] != zero_diff[2] ~ "Different"
  )) %>% 
  arrange(month, off_temp, trait) %>% 
  filter(change == "Different")

select_rnorms = duration_effects %>% 
  dplyr::select(-duration, -difference, -bca_ci_low, -bca_ci_high, -ID, -zero_diff) %>% 
  distinct()

sig_changes = F1_data %>% 
  dplyr::select(month, duration, off_temp, trait, difference, bca_ci_low, bca_ci_high) %>% 
  mutate("ID" = paste(month, off_temp, trait, sep = "_"),
         month = fct_relevel(month, c("June", "August", "November")),
         duration = fct_relevel(duration, c("short", "long"))) %>% 
  filter(ID %in% select_rnorms$ID)

ggplot(sig_changes, aes(x = duration, y = difference, colour = month, group = ID)) + 
  facet_wrap(trait~.) + 
  geom_hline(yintercept = 0) + 
  geom_line(size = 1, position = position_dodge(width = 0.1)) + 
  geom_point(size = 2, position = position_dodge(width = 0.1)) + 
  geom_errorbar(aes(ymin = bca_ci_low, ymax = bca_ci_high),
                size = 0.75, width = 0.1,
                position = position_dodge(width = 0.1)) + 
  geom_label_repel(data = sig_changes %>% filter(duration == "long"), 
                   aes(label = off_temp, 
                       x = duration,
                       y = difference, 
                       color = month),
                   box.padding = 0.5,
                   nudge_x = 0.2,
                   size = 7,
                   show.legend=FALSE) + 
  labs(x = "Parental Exposure Duration", 
       y = "Effect Size (Hedge's g)\nHeatwave - Control") + 
  ylim(-5,5) + 
  theme_pubr(base_size = 18)

rdata = file_list[str_detect(file_list, pattern = ".RData")]
f1_data = rdata[str_detect(rdata, pattern = "F0_", negate = T)] %>% 
  str_split_fixed(pattern = ".RData", n = 2)
f1_data = f1_data[,1]

plot_names = c()
for(i in 1:length(f1_data)){
  plot_name = paste(f1_data[i], "_plot", sep = "")
  plot_names = c(plot_names, plot_name)
  metric = str_split_fixed(plot_name, pattern = "_", n = 4)[,2]
  
  if(metric == "total"){
    label = "Egg Production (per female)"
  }
  
  if(metric == "rf"){
    label = "Production (per female)"
  }
  
  if(metric == "hs"){
    label = "Hatching Success (%)"
  }
  
  if(metric == "bs"){
    label = "Body Size (mm)"
  }
  
  assign(plot_name,
         plot(get(f1_data[i]), 
              effsize.markersize = 2,
              axes.title.fontsize = 9,
              tick.fontsize = 6,
              swarmplot.params = param_list,
              rawplot.ylabel = label,
              theme = ggpubr::theme_pubr()))
}

bs_plots = plot_names[str_detect(plot_names, pattern = "_bs_")]
rf_plots = plot_names[str_detect(plot_names, pattern = "_rf_")]
total_plots = plot_names[str_detect(plot_names, pattern = "_total_")]
hs_plots = plot_names[str_detect(plot_names, pattern = "_hs_")]
ggarrange(June_bs_short_plot, June_bs_long_plot, 
          August_bs_short_plot, August_bs_long_plot,
          November_bs_short_plot, November_bs_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_total_short_plot, June_total_long_plot, 
          August_total_short_plot, August_total_long_plot,
          November_total_short_plot, November_total_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_hs_short_plot, June_hs_long_plot, 
          August_hs_short_plot, August_hs_long_plot,
          November_hs_short_plot, November_hs_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

ggarrange(June_rf_short_plot, June_rf_long_plot, 
          August_rf_short_plot, August_rf_long_plot,
          November_rf_short_plot, November_rf_long_plot,
          ncol = 2, nrow = 3,
          labels = "AUTO",
          vjust = -0.2)

seasonal_cols = c("June" = "#E69F00", "August" = "#D55E00", "November" = "#0072B2")
F1_fbs$ID = paste(F1_fbs$Month, F1_fbs$Parental_treatment, F1_fbs$Day, sep = "_")
F1_fbs$Month = fct_relevel(F1_fbs$Month, "June", "August", "November")

ggplot(F1_fbs, aes(x = Offspring_temp, y = Size, colour = Day, group = ID)) + 
  facet_grid(Month~Parental_treatment) + 
  geom_jitter(width = 0.5, size = 1.6, alpha = 0.4) +
  geom_smooth(method = "lm", size = 1.4, alpha = 0.2) + 
  scale_x_continuous(breaks = c(12,17,22)) + 
  theme_bw() + theme(legend.position = "right",
                     panel.grid = element_blank())

LS0tCnRpdGxlOiAiRmlndXJlcyBmb3IgU2Vhc29uYWxseSB2YXJpYWJsZSB0aGVybWFsIHBlcmZvcm1hbmNlIGN1cnZlcyBwcmV2ZW50IGFkdmVyc2UgZWZmZWN0cyBvZiBoZWF0d2F2ZXMiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgICAgICAgIGNvZGVfZm9sZGluZzogaGlkZQogICAgICAgICAgY29kZV9kb3dubG9hZDogdHJ1ZQogICAgICAgICAgdG9jOiB0cnVlCiAgICAgICAgICB0b2NfZmxvYXQ6IHRydWUKICBnaXRodWJfZG9jdW1lbnQ6CiAgICAgICAgICB0b2M6IHRydWUKICAgICAgICAgIHRvY19kZXB0aDogMgogICAgICAgICAgaHRtbF9wcmV2aWV3OiBmYWxzZQplZGl0b3Jfb3B0aW9uczogCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRSwgZmlnLmFsaWduPSJjZW50ZXIiLCBtZXNzYWdlID0gRiwgd2FybmluZyA9IEZ9CmtuaXRyOjpvcHRzX2NodW5rJHNldCgKICBlY2hvID0ga25pdHI6OmlzX2h0bWxfb3V0cHV0KCksCiAgZmlnLmFsaWduID0gImxlZnQiLAogIGZpZy5wYXRoID0gIi4uL0ZpZ3VyZXMvbWFya2Rvd24vIiwKICBtZXNzYWdlID0gRkFMU0UsCiAgd2FybmluZyA9IEZBTFNFLAogIGNvbGxhcHNlID0gVCwKICBkZXYgPSBjKCJwbmciLCAicGRmIikKKQoKc3QuZXJyIDwtIGZ1bmN0aW9uKHgsIG5hLnJtPUZBTFNFKSB7CiAgaWYobmEucm09PVRSVUUpIHggPC0gbmEub21pdCh4KQogIHNkKHgpL3NxcnQobGVuZ3RoKHgpKQp9Cgp0aGVtZV9tYXR0ID0gZnVuY3Rpb24oYmFzZV9zaXplKXsKICBnZ3B1YnI6OnRoZW1lX3B1YnIoYmFzZV9mYW1pbHk9InNhbnMiKSAlK3JlcGxhY2UlIAogICAgdGhlbWUoCiAgICAgIHBhbmVsLmJhY2tncm91bmQgID0gZWxlbWVudF9ibGFuaygpLAogICAgICBwbG90LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLCAKICAgICAgbGVnZW5kLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbD0idHJhbnNwYXJlbnQiLCBjb2xvdXI9TkEpLAogICAgICBsZWdlbmQua2V5ID0gZWxlbWVudF9yZWN0KGZpbGw9InRyYW5zcGFyZW50IiwgY29sb3VyPU5BKSwKICAgICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZT1iYXNlX3NpemUgKiAwLjgpLAogICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IGJhc2Vfc2l6ZSAqIDAuOCwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmYWNlID0gImJvbGQiKSwKICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUpLAogICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSBiYXNlX3NpemUgKiAxLjIpLAogICAgICB0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gYmFzZV9zaXplICogMS41NSkKICAgICkKfQoKaDFfZXByJE1vbnRoID0gZmFjdG9yKGgxX2VwciRNb250aCwgbGV2ZWxzID0gYygiSnVseSIsICJBdWd1c3QiLCAiU2VwdGVtYmVyIiwgIk9jdG9iZXIiLCAiTm92ZW1iZXJfMSIsICJOb3ZlbWJlcl8yIikpCgpodWRzX2gxX2VwciRNb250aCA9IGZhY3RvcihodWRzX2gxX2VwciRNb250aCwgbGV2ZWxzID0gYygiSmFudWFyeSIsICJGZWJydWFyeSIsICJNYXJjaCIsICJBcHJpbCIsICJNYXkiLCAiSnVuZSIpKQoKdG9uc2FfY29sb3JzID0gYygiSnVseSIgPSAiIzc5MTEwMSIsICJBdWd1c3QiID0gIiNBRDIxMDYiLCAiU2VwdGVtYmVyIiA9ICIjQ0MzNDAzIiwgCiAgICAgICAgICAgICAgICAgIk9jdG9iZXIiID0gIiNFRjVGMDgiLCAiTm92ZW1iZXJfMSIgPSAiI0YyNzAwNiIsICJOb3ZlbWJlcl8yIiA9ICIjRUVCNjBBIikKCmh1ZHNfY29sb3JzID0gYygiSmFudWFyeSIgPSAiIzA2MUIyNCIsICJGZWJydWFyeSIgPSAiIzBGNDI1NiIsICJNYXJjaCIgPSAiIzE1NkQ4RCIsIAogICAgICAgICAgICAgICAgIkFwcmlsIiA9ICIjMkZBQURDIiwgIk1heSIgPSAiIzYxQkZFMyIsICJKdW5lIiA9ICIjOTdENUVFIikKCmNvbWJfY29sb3JzID0gYyhodWRzX2NvbG9ycywgdG9uc2FfY29sb3JzKQoKYSA9IGdncGxvdCgpICsgdGhlbWVfcHViY2xlYW4oKQoKc3VydiRNb250aCA9IGZhY3RvcihzdXJ2JE1vbnRoLCBsZXZlbHMgPSBjKCJKdWx5IiwgIkF1Z3VzdCIsICJTZXB0ZW1iZXIiLCAiT2N0b2JlciIsICJOb3ZlbWJlcl8xIiwgIk5vdmVtYmVyXzIiKSkKaHVkc19zdXJ2JE1vbnRoID0gZmFjdG9yKGh1ZHNfc3VydiRNb250aCwgbGV2ZWxzID0gYygiSmFudWFyeSIsICJGZWJydWFyeSIsICJNYXJjaCIsICJBcHJpbCIsICJNYXkiLCAiSnVuZSIpKQpgYGAKCiMjIE1haW4gVGV4dCBGaWd1cmVzCmBgYHtyIGZpZ3VyZS0yLWNvbWJpbmVkLXRwY3MsIGZpZy5oZWlnaHQ9Nn0KY29tYl9lcHJfcGxvdCA9IGNvbWJfcHJlZHMgJT4lIAogIGZpbHRlcihtZXRyaWMgPT0gIkVQUiIpICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludChhZXModGVtcCwgcmF0ZSwgY29sb3VyID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9kLCBtZXRyaWMgPT0gIkVQUiIpLCBzaXplID0gMS41LCBhbHBoYSA9IDAuNiwgCiAgICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX2ppdHRlcih3aWR0aCA9IDAuNSwgaGVpZ2h0ID0gMCkpICsKICBnZW9tX3JpYmJvbihhZXModGVtcCwgeW1pbiA9IGNvbmZfbG93ZXIsIHltYXggPSBjb25mX3VwcGVyLCBncm91cCA9IGN1cnZlX2lkKSwgZmlsdGVyKGNvbWJfYm9vdF9jb25mX3ByZWRzLCBtZXRyaWMgPT0gIkVQUiIpLCBmaWxsID0gJ2dyZXk2MCcsIGFscGhhID0gMC4zKSArCiAgZ2VvbV9saW5lKGFlcyh0ZW1wLCAuZml0dGVkLCBjb2wgPSBjdXJ2ZV9pZCksIGxpbmV3aWR0aCA9IDIpICsKICAjc2NhbGVfY29sb3JfYnJld2VyKHR5cGUgPSAiZGl2IiwgcGFsZXR0ZSA9IDUsIGRpcmVjdGlvbiA9IC0xKSArIAogICNzY2FsZV9jb2xvcl92aXJpZGlzX2Qob3B0aW9uID0gIm1ha28iKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gY29tYl9jb2xvcnMpICsgCiAgbGFicyh4ID0gIlRlbXBlcmF0dXJlIChkZWdyZWVzIEMpIiwgCiAgICAgICB5ID0gIkVnZyBQcm9kdWN0aW9uIFJhdGUgXG4oZWdncy9mZW1hbGUvZGF5KSIsCiAgICAgICBjb2xvdXIgPSAiTW9udGgiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iX2hzX3Bsb3QgPSBjb21iX3ByZWRzICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJIRiIpICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludChhZXModGVtcCwgcmF0ZSwgY29sb3VyID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9kLCBtZXRyaWMgPT0gIkhGIiksIHNpemUgPSAxLjUsIGFscGhhID0gMC42LCAKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25faml0dGVyKHdpZHRoID0gMC41LCBoZWlnaHQgPSAwKSkgKwogIGdlb21fcmliYm9uKGFlcyh0ZW1wLCB5bWluID0gY29uZl9sb3dlciwgeW1heCA9IGNvbmZfdXBwZXIsIGdyb3VwID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9ib290X2NvbmZfcHJlZHMsIG1ldHJpYyA9PSAiSEYiKSwgZmlsbCA9ICdncmV5NjAnLCBhbHBoYSA9IDAuMykgKwogIGdlb21fbGluZShhZXModGVtcCwgLmZpdHRlZCwgY29sID0gY3VydmVfaWQpLCBzaXplID0gMikgKwogICNzY2FsZV9jb2xvcl9icmV3ZXIodHlwZSA9ICJkaXYiLCBwYWxldHRlID0gNSwgZGlyZWN0aW9uID0gLTEpICsgCiAgI3NjYWxlX2NvbG9yX3ZpcmlkaXNfZChvcHRpb24gPSAibWFrbyIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjb21iX2NvbG9ycykgKyAKICBsYWJzKHggPSAiVGVtcGVyYXR1cmUgKGRlZ3JlZXMgQykiLCAKICAgICAgIHkgPSAiSGF0Y2hpbmcgU3VjY2VzcyBcbiglKSIsCiAgICAgICBjb2xvdXIgPSAiTW9udGgiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iX3JmX3Bsb3QgPSBjb21iX3ByZWRzICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJSRiIpICU+JSAKICBnZ3Bsb3QoKSArCiAgZ2VvbV9wb2ludChhZXModGVtcCwgcmF0ZSwgY29sb3VyID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9kLCBtZXRyaWMgPT0gIlJGIiksIHNpemUgPSAxLjUsIGFscGhhID0gMC42LCAKICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25faml0dGVyKHdpZHRoID0gMC41LCBoZWlnaHQgPSAwKSkgKwogIGdlb21fcmliYm9uKGFlcyh0ZW1wLCB5bWluID0gY29uZl9sb3dlciwgeW1heCA9IGNvbmZfdXBwZXIsIGdyb3VwID0gY3VydmVfaWQpLCBmaWx0ZXIoY29tYl9ib290X2NvbmZfcHJlZHMsIG1ldHJpYyA9PSAiUkYiKSwgZmlsbCA9ICdncmV5NjAnLCBhbHBoYSA9IDAuMykgKwogIGdlb21fbGluZShhZXModGVtcCwgLmZpdHRlZCwgY29sID0gY3VydmVfaWQpLCBzaXplID0gMikgKwogICNzY2FsZV9jb2xvcl9icmV3ZXIodHlwZSA9ICJkaXYiLCBwYWxldHRlID0gNSwgZGlyZWN0aW9uID0gLTEpICsgCiAgI3NjYWxlX2NvbG9yX3ZpcmlkaXNfZChvcHRpb24gPSAibWFrbyIpICsgCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjb21iX2NvbG9ycykgKyAKICBsYWJzKHggPSAiVGVtcGVyYXR1cmUgKGRlZ3JlZXMgQykiLCAKICAgICAgIHkgPSAiUHJvZHVjdGlvbiBcbihvZmZzcHJpbmcvZmVtYWxlL2RheSkiLAogICAgICAgY29sb3VyID0gIk1vbnRoIikgKyAKICB0aGVtZV9tYXR0KGJhc2Vfc2l6ZSA9IDEyKQoKY29tYl90c2MgPSBnZ3Bsb3QoY29tYl9zdXJ2LCBhZXMoeD1UZW1wLCB5PVN1cnYsIGNvbG91cj1Nb250aCkpICsgCiAgZ2VvbV9wb2ludChzaXplPTEuNSwgcG9zaXRpb249cG9zaXRpb25faml0dGVyKHdpZHRoPTAuMSwgaGVpZ2h0PTAuMDMpKSArCiAgeGxhYigiU3RyZXNzIFRlbXBlcmF0dXJlIikrCiAgeWxhYigiU3Vydml2b3JzaGlwIFxuKHByb3BvcnRpb24gc3Vydml2ZWQpIikrCiAgbGFicyhjb2xvdXIgPSAiTW9udGgiKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAuNSwgbGluZXR5cGUgPSAiZGFzaGVkIikgKwogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJnbG0iLCBtZXRob2QuYXJncyA9IGxpc3QoZmFtaWx5ID0gImJpbm9taWFsIiksIHNlPVQsIHNpemUgPSAyKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IGMoMCwxKSkgKyAKICAjc2NhbGVfY29sb3JfYnJld2VyKHR5cGUgPSAiZGl2IiwgcGFsZXR0ZSA9IDUsIGRpcmVjdGlvbiA9IC0xKSArIAogICNzY2FsZV9jb2xvcl92aXJpZGlzX2Qob3B0aW9uID0gIm1ha28iKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gY29tYl9jb2xvcnMpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikKCmdnYXJyYW5nZShjb21iX2Vwcl9wbG90LCBjb21iX2hzX3Bsb3QsIGNvbWJfcmZfcGxvdCwgY29tYl90c2MsIAogICAgICAgICAgbmNvbCA9IDIsIG5yb3cgPSAyLAogICAgICAgICAgY29tbW9uLmxlZ2VuZCA9IFQsIGxlZ2VuZCA9ICJib3R0b20iLCBsYWJlbHMgPSAiQVVUTyIpCmBgYAoKYGBge3IgZmlndXJlLTMtY3VydmUtcGFyYW1ldGVycywgd2FybmluZyA9IEYsIG1lc3NhZ2UgPSBGLCBmaWcud2lkdGg9OCwgZmlnLmhlaWdodD03fQpjb21iaW5lZF9vcHRfY29sbCA9IGNvbWJfcGFyYW1zICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IikgJT4lIAogIGdncGxvdChhZXMoeCA9IGdyb3d0aF90ZW1wLCB5ID0gZXN0aW1hdGUsIHNoYXBlID0gc3BlY2llcykpICsgCiAgZ2VvbV9zbW9vdGgoZGF0YSA9IGZpbHRlcihjb21iX3BhcmFtcywgbWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IiAmIGN1cnZlX2lkICE9ICJOb3ZlbWJlcl8yIiksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgY29sb3VyID0gImdyZXk1MCIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgc3Ryb2tlID0gMSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxNiwyMSkpICsgCiAgeWxhYigiT3B0aW11bSAoZGVncmVlcyBDKSIpICsgCiAgeGxhYigiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSAoZGVncmVlcyBjKSIpICsgCiAgbGFicyhjb2xvdXIgPSAiTW9udGgiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpjb21iaW5lZF9vcHRfZGlmZiA9IGNvbWJfcGFyYW1zICU+JSAKICBmaWx0ZXIobWV0cmljID09ICJSRiIgJiB0ZXJtID09ICJ0b3B0IikgJT4lIAogIGdncGxvdChhZXMoeCA9IGdyb3d0aF90ZW1wLCB5ID0gbWFyZ2luLCBzaGFwZSA9IHNwZWNpZXMpKSArCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCwgc2l6ZSA9MSwgbGluZXR5cGUgPSAiZGFzaGVkIikgKwogIGdlb21fc21vb3RoKGRhdGEgPSBmaWx0ZXIoY29tYl9wYXJhbXMsIG1ldHJpYyA9PSAiUkYiICYgdGVybSA9PSAidG9wdCIgJiBjdXJ2ZV9pZCAhPSAiTm92ZW1iZXJfMiIpLAogICAgICAgICAgICAgIG1ldGhvZCA9ICJsbSIsIGNvbG91ciA9ICJncmV5NTAiKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDMsIHN0cm9rZSA9IDEpICsgCiAgeWxhYigiTWFyZ2luIChkZWdyZWVzIEMpIikgKyAKICB4bGFiKCJDb2xsZWN0aW9uIFRlbXBlcmF0dXJlIChkZWdyZWVzIGMpIikgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxNiwyMSkpICsgCiAgdGhlbWVfbWF0dChiYXNlX3NpemUgPSAxMikgCgpjb21iaW5lZF9sZF9jb2xsID0gZ2dwbG90KGNvbWJpbmVkX3RvbGVyYW5jZSwgYWVzKHggPSBDb2xsX3RlbXAsIHkgPSBMRDUwLCBzaGFwZSA9IHNwZWNpZXMpKSArIAogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIGNvbG91ciA9ICJncmV5NTAiKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDMsIHN0cm9rZSA9IDEpICsgCiAgc2NhbGVfc2hhcGVfbWFudWFsKHZhbHVlcyA9IGMoMTYsMjEpKSArIAogIHlsYWIoIlRoZXJtYWwgVG9sZXJhbmNlIChkZWdyZWVzIEMpIikgKyAKICB4bGFiKCJDb2xsZWN0aW9uIFRlbXBlcmF0dXJlIChkZWdyZWVzIGMpIikgKyAKICB0aGVtZV9tYXR0KGJhc2Vfc2l6ZSA9IDEyKQoKY29tYmluZWRfbGRfZGlmZiA9IGdncGxvdChjb21iaW5lZF90b2xlcmFuY2UsIGFlcyh4ID0gQ29sbF90ZW1wLCB5ID0gbWFyZ2luLCBzaGFwZSA9IHNwZWNpZXMpKSArCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgY29sb3VyID0gImdyZXk1MCIpICsgCiAgZ2VvbV9wb2ludChzaXplID0gMywgc3Ryb2tlID0gMSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygxNiwyMSkpICsgCiAgeWxhYigiV2FybWluZyBUb2xlcmFuY2UgKGRlZ3JlZXMgQykiKSArIAogIHhsYWIoIkNvbGxlY3Rpb24gVGVtcGVyYXR1cmUgKGRlZ3JlZXMgYykiKSArIAogIHRoZW1lX21hdHQoYmFzZV9zaXplID0gMTIpCgpnZ2FycmFuZ2UoY29tYmluZWRfb3B0X2NvbGwsIGNvbWJpbmVkX29wdF9kaWZmLCBjb21iaW5lZF9sZF9jb2xsLCBjb21iaW5lZF9sZF9kaWZmLCBuY29sID0gMiwgbnJvdyA9IDIsIGNvbW1vbi5sZWdlbmQgPSBULAogICAgICAgICAgbGVnZW5kID0gImJvdHRvbSIsIGxhYmVscyA9ICJBVVRPIikKYGBgCgpgYGB7cn0KRjBfcmZfc3VtbWFyeSRtb250aCA9IGZhY3RvcihGMF9yZl9zdW1tYXJ5JG1vbnRoLCBsZXZlbHMgPSBjKCJKdW5lIiwgIkF1Z3VzdCIsICJOb3ZlbWJlciIpKQpGMF9yZl9zdW1tYXJ5JGR1cmF0aW9uID0gZmFjdG9yKEYwX3JmX3N1bW1hcnkkZHVyYXRpb24sIGxldmVscyA9IGMoInNob3J0IiwgImxvbmciKSkKRjBfZHVyX3N1bW1hcnkkbW9udGggPSBmYWN0b3IoRjBfZHVyX3N1bW1hcnkkbW9udGgsIGxldmVscyA9IGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpCgpwYXJhbV9saXN0ID0gbGlzdCgiY29sb3VyIiA9ICJibGFjayIsCiAgICAgICAgICAgICAgICAgICJ3aWR0aCIgPSAwLjIpIAoKUkZfc2hvcnRfZGIgPSBwbG90KEYwX1JGX3Nob3J0LCAKICAgICAgICAgICAgICAgICAgIGF4ZXMudGl0bGUuZm9udHNpemUgPSAxMCwKICAgICAgICAgICAgICAgICAgIHRpY2suZm9udHNpemUgPSAxMCwKICAgICAgICAgICAgICAgICAgIGVmZnNpemUubWFya2Vyc2l6ZSA9IDMsCiAgICAgICAgICAgICAgICAgICBzd2FybXBsb3QucGFyYW1zID0gcGFyYW1fbGlzdCwKICAgICAgICAgICAgICAgICAgIHJhd3Bsb3QueWxhYmVsID0gIlByb2R1Y3Rpb24iLAogICAgICAgICAgICAgICAgICAgdGhlbWUgPSBnZ3B1YnI6OnRoZW1lX3B1YnIoKSkKClJGX2xvbmdfZGIgPSBwbG90KEYwX1JGX2xvbmcsIAogICAgICAgICAgICAgICAgICBheGVzLnRpdGxlLmZvbnRzaXplID0gMTAsCiAgICAgICAgICAgICAgICAgIHRpY2suZm9udHNpemUgPSAxMCwKICAgICAgICAgICAgICAgICAgZWZmc2l6ZS5tYXJrZXJzaXplID0gMywKICAgICAgICAgICAgICAgICAgc3dhcm1wbG90LnBhcmFtcyA9IHBhcmFtX2xpc3QsCiAgICAgICAgICAgICAgICAgIHJhd3Bsb3QueWxhYmVsID0gIlByb2R1Y3Rpb24iLAogICAgICAgICAgICAgICAgICB0aGVtZSA9IGdncHVicjo6dGhlbWVfcHVicigpKQoKYjEgPSBnZ3Bsb3QoKSArIHRoZW1lX3B1YmNsZWFuKCkgKyBnZ3RpdGxlKCIgICAgICAgICAgU2hvcnQgSGVhdCBXYXZlcyIpCmIyID0gZ2dwbG90KCkgKyB0aGVtZV9wdWJjbGVhbigpICsgZ2d0aXRsZSgiICAgICAgICAgIExvbmcgSGVhdCBXYXZlcyIpCkYwX2ZlY3VuZGl0eV9wbG90ID0gZ2dhcnJhbmdlKGIxLCBSRl9zaG9ydF9kYiwgYjIsIFJGX2xvbmdfZGIsIG5jb2wgPSAxLCBucm93ID0gNCwgaGVpZ2h0cyA9IGMoMC4xLCAxLCAwLjEsIDEpKQpgYGAKCmBgYHtyIGZpZ3VyZS00LXNpbS1oZWF0d2F2ZS1lZmZlY3RzLCBmaWcuaGVpZ2h0PTYsIGZpZy53aWR0aD01fQp4LmF4aXNfbGFiZWxzID0gYygiMSIgPSAic2hvcnQiLCAiMiIgPSAibG9uZyIsICIzIiA9ICJzaG9ydCIsICI0IiA9ICJsb25nIikKCkYwX2dyaWQgPSBGMF9yZl9zdW1tYXJ5ICU+JSAKICBtdXRhdGUobW9udGggPSBmY3RfcmVsZXZlbChtb250aCwgIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkdXJhdGlvbiwgeSA9IGRpZmZlcmVuY2UsIGNvbG91ciA9IHRyYWl0LCBzaGFwZSA9IGR1cmF0aW9uKSkgKyAKICBmYWNldF9ncmlkKC4gfiBtb250aCkgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwLCBjb2xvdXIgPSAiYmxhY2siLCBzaXplID0gMC4zKSArCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IGJjYV9jaV9sb3csIHltYXggPSBiY2FfY2lfaGlnaCksIHdpZHRoID0gMCwgc2l6ZSA9IDEuMykgKyAKICBnZW9tX3BvaW50KHNpemUgPSA1LCBmaWxsID0gIndoaXRlIikgKyAKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoImJvZHkgc2l6ZSIgPSAiZ3JleTc1IiwgInByb2R1Y3Rpb24iID0gImJsYWNrIikpICsgCiAgc2NhbGVfc2hhcGVfbWFudWFsKHZhbHVlcyA9IGMoImxvbmciID0gMTYsICJzaG9ydCIgPSAyMSkpICsgCiAgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9IHguYXhpc19sYWJlbHMpICsKICBnZ3RpdGxlKCJEaXJlY3QgRWZmZWN0cyAoRjApIikgKyAKICB4bGFiKCIiKSArCiAgeWxhYigiRWZmZWN0IFNpemVcbkhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgeWxpbSgtMSwxLjEpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMTIpICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSAtNDUsIGhqdXN0ID0gMCwgdmp1c3QgPSAwLjUpLAogICAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKCkYxX3N1bW1hcnkgPSBiaW5kX3Jvd3MoRjFfcmZfZWZmZWN0X3NpemUsIEYxX2JzX2VmZmVjdF9zaXplKSAlPiUgCiAgZHBseXI6OnNlbGVjdCh2YXJpYWJsZSwgZGlmZmVyZW5jZSwgCiAgICAgICAgICAgICAgICBiY2FfY2lfbG93LCBiY2FfY2lfaGlnaCwgCiAgICAgICAgICAgICAgICBtb250aCwgZHVyYXRpb24sIHRyYWl0LCBnZW5lcmF0aW9uLCBvZmZfdGVtcCkgJT4lIAogIG11dGF0ZSgib3JkZXJfY29kZSIgPSBwYXN0ZSh0cmFpdCwgZHVyYXRpb24sIHNlcCA9ICJfIiksCiAgICAgICAgICJvcmRlcl9udW1iZXIiID0gY2FzZV93aGVuKAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInByb2R1Y3Rpb25fc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX2xvbmciIH4gMiwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJib2R5IHNpemVfc2hvcnQiIH4gMywKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJib2R5IHNpemVfbG9uZyIgfiA0KSwKICAgICAgICAgbW9udGggPSBmY3RfcmVsZXZlbChtb250aCwgIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpCgpGMV9zdW1tYXJ5JG9yZGVyX251bWJlciA9IGZhY3RvcihGMV9zdW1tYXJ5JG9yZGVyX251bWJlciwgbGV2ZWxzID0gYygxLDIsMyw0KSkKRjFfZ3JpZCA9IGdncGxvdChGMV9zdW1tYXJ5LCBhZXMoeCA9IG9yZGVyX251bWJlciwgeSA9IGRpZmZlcmVuY2UsIGNvbG91ciA9IHRyYWl0LCBzaGFwZSA9IGR1cmF0aW9uLCBncm91cCA9IHRyYWl0KSkgKwogIGZhY2V0X2dyaWQob2ZmX3RlbXAgfiBtb250aCwgKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAsIGNvbG91ciA9ICJibGFjayIsIHNpemUgPSAwLjMpICsKICBnZW9tX2xpbmUoKSArIAogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBiY2FfY2lfbG93LCB5bWF4ID0gYmNhX2NpX2hpZ2gpLCB3aWR0aCA9IDAsIHNpemUgPSAxKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDMsIGZpbGwgPSAid2hpdGUiKSArIAogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygiYm9keSBzaXplIiA9ICJncmV5NzUiLCAicHJvZHVjdGlvbiIgPSAiYmxhY2siKSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygibG9uZyIgPSAxNiwgInNob3J0IiA9IDIxKSkgKyAKICB4bGltKDAuNSw0LjUpICsgCiAgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9IHguYXhpc19sYWJlbHMpICsKICB4bGFiKCIiKSArCiAgeWxhYigiRWZmZWN0IFNpemVcbkhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgZ2d0aXRsZSgiVHJhbnNnZW5lcmF0aW9uYWwgRWZmZWN0cyAoRjEpIikgKyAKICB0aGVtZV9idyhiYXNlX3NpemUgPSAxMikgKyAKICB0aGVtZShwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIHN0cmlwLmJhY2tncm91bmQueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBzdHJpcC50ZXh0LnggPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KGNvbG91ciA9ICJibGFjayIpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gLTQ1LCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSkKCmdnYXJyYW5nZShGMF9ncmlkLCBGMV9ncmlkLCBucm93ID0gMiwgbmNvbCA9IDEsIGhlaWdodHMgPSBjKDAuNDUsMSksIGNvbW1vbi5sZWdlbmQgPSBULCBsZWdlbmQgPSAicmlnaHQiKQpgYGAKCiMjIFN1cHBsZW1lbnRhbCBJbmZvcm1hdGlvbiAgIApgYGB7ciBwYXJhbWV0ZXJzLW1vbnRoLCBmaWcuaGVpZ2h0PTksIGZpZy53aWR0aD0xMX0KI2ZpZWxkIHRwYyBwYXJhbWV0ZXJzCmNvbWJfcGFyYW1zICU+JSAgCiAgbXV0YXRlKGN1cnZlX2lkID0gZmN0X3JlbGV2ZWwoY3VydmVfaWQsIGMoIkphbnVhcnkiLCAiRmVicnVhcnkiLCAiTWFyY2giLCAiQXByaWwiLCAiTWF5IiwgIkp1bmUiLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiSnVseSIsICJBdWd1c3QiLCAiU2VwdGVtYmVyIiwgIk9jdG9iZXIiLCAiTm92ZW1iZXJfMSIsICJOb3ZlbWJlcl8yIikpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gY3VydmVfaWQsIHkgPSBlc3RpbWF0ZSwgY29sb3VyID0gc3BlY2llcykpICsKICBmYWNldF93cmFwKHRlcm1+bWV0cmljLCBzY2FsZXMgPSAnZnJlZV95JykgKyAKICBnZW9tX3BvaW50KHNpemUgPSA0KSArCiAgZ2VvbV9saW5lcmFuZ2UoYWVzKHltaW4gPSBjb25mX2xvd2VyLCB5bWF4ID0gY29uZl91cHBlcikpICsKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoInJveWFsYmx1ZTEiLCAiaW5kaWFucmVkMiIpKSArIAogIGxhYnMoeCA9ICJNb250aCIsCiAgICAgICB5ID0gIlBhcmFtZXRlciBFc3RpbWF0ZSIsCiAgICAgICBjb2xvdXIgPSAiU3BlY2llcyIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMTYpICsKICB0aGVtZShwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gMzE1LCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSkKYGBgCgpgYGB7ciBwYXJhbWV0ZXJzLWNvbGwtdGVtcCwgZmlnLmhlaWdodD03LCBmaWcud2lkdGg9OX0KI2ZpZWxkIHRwYyBwYXJhbWV0ZXJzCmdncGxvdChjb21iX3BhcmFtcywgYWVzKHggPSBncm93dGhfdGVtcCwgeSA9IGVzdGltYXRlLCBjb2xvdXIgPSBzcGVjaWVzKSkgKwogIGZhY2V0X3dyYXAodGVybX5tZXRyaWMsIHNjYWxlcyA9ICdmcmVlX3knKSArIAogIGdlb21fc21vb3RoKGRhdGEgPSBmaWx0ZXIoY29tYl9wYXJhbXMsIGN1cnZlX2lkICE9ICJOb3ZlbWJlcl8yIiksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgc2UgPSBGKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDQpICsKICBnZW9tX2xpbmVyYW5nZShhZXMoeW1pbiA9IGNvbmZfbG93ZXIsIHltYXggPSBjb25mX3VwcGVyKSkgKwogIHNjYWxlX2NvbG91cl9tYW51YWwodmFsdWVzID0gYygicm95YWxibHVlMSIsICJpbmRpYW5yZWQyIikpICsgCiAgbGFicyh4ID0gIkNvbGxlY3Rpb24gVGVtcGVyYXR1cmUgKGRlZ3JlZXMgQykiLAogICAgICAgeSA9ICJQYXJhbWV0ZXIgRXN0aW1hdGUiLAogICAgICAgY29sb3VyID0gIlNwZWNpZXMiKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDEyKSArCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgpgYGB7ciBtYXJnaW5zLWNvbGwtdGVtcCwgZmlnLmhlaWdodD05LCBmaWcud2lkdGg9N30KY29tYl9wYXJhbXMgJT4lIAogIGZpbHRlcih0ZXJtID09ICJ0b3B0IikgJT4lIAogIGdncGxvdChhZXMoeCA9IGdyb3d0aF90ZW1wLCB5ID0gbWFyZ2luLCBjb2xvdXIgPSBzcGVjaWVzLCBncm91cCA9IHNwZWNpZXMpKSArIAogIGZhY2V0X2dyaWQobWV0cmljfi4sIHNjYWxlcyA9ICdmcmVlX3knKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDApICsKICBnZW9tX3Ntb290aChkYXRhID0gZmlsdGVyKGNvbWJfcGFyYW1zLCB0ZXJtID09ICJ0b3B0IiAmIGN1cnZlX2lkICE9ICJOb3ZlbWJlcl8yIiksCiAgICAgICAgICAgICAgbWV0aG9kID0gImxtIiwgc2UgPSBGLCBzaXplID0gMSwgY29sb3VyID0gImJsYWNrIikgKyAKICBnZW9tX3BvaW50KHNpemUgPSA0KSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJyb3lhbGJsdWUxIiwgImluZGlhbnJlZDIiKSkgKyAKICBsYWJzKHggPSAiQ29sbGVjdGlvbiBUZW1wZXJhdHVyZSIsCiAgICAgICB5ID0gIlNhZmV0eSBNYXJnaW4iKSArIAogIHRoZW1lX2J3KGJhc2Vfc2l6ZSA9IDE4KSArCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCgpgYGB7ciBlZmZlY3Qtc2l6ZS1ncmlkLCBmaWcuaGVpZ2h0PTgsIGZpZy53aWR0aD04fQojU3Vic2VxdWVudCBSb3dzCkYxX2hzX2VmZmVjdF9zaXplJHRyYWl0ID0gInN1Y2Nlc3MiCkYxX2hzX2VmZmVjdF9zaXplJGdlbmVyYXRpb24gPSAiRjEiCgpGMV90b3RhbF9lZmZlY3Rfc2l6ZSR0cmFpdCA9ICJlcHIiCkYxX3RvdGFsX2VmZmVjdF9zaXplJGdlbmVyYXRpb24gPSAiRjEiCgpGMV9yZl9lZmZlY3Rfc2l6ZSR0cmFpdCA9ICJwcm9kdWN0aW9uIgpGMV9yZl9lZmZlY3Rfc2l6ZSRnZW5lcmF0aW9uID0gIkYxIgoKRjFfYnNfZWZmZWN0X3NpemUkdHJhaXQgPSAiYm9keSBzaXplIgpGMV9ic19lZmZlY3Rfc2l6ZSRnZW5lcmF0aW9uID0gIkYxIgoKRjBfZGF0YSA9IGJpbmRfcm93cyhGMF9oc19zdW1tYXJ5LCBGMF90b3RhbF9zdW1tYXJ5LEYwX3JmX3N1bW1hcnksIEYwX3NpemVfc3VtbWFyeSkgJT4lIAogIGRwbHlyOjpzZWxlY3QodHJhaXQsIGRpZmZlcmVuY2UsIGJjYV9jaV9sb3csIGJjYV9jaV9oaWdoLCBtb250aCwgZHVyYXRpb24sIHRyYWl0LCBnZW5lcmF0aW9uKSAlPiUgCiAgbXV0YXRlKCJvcmRlcl9jb2RlIiA9IHBhc3RlKHRyYWl0LCBkdXJhdGlvbiwgc2VwID0gIl8iKSwKICAgICAgICAgIm9yZGVyX251bWJlciIgPSBjYXNlX3doZW4oCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAidG90YWxfc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJ0b3RhbF9sb25nIiB+IDIsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAic3VjY2Vzc19zaG9ydCIgfiAzLAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInN1Y2Nlc3NfbG9uZyIgfiA0LAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInByb2R1Y3Rpb25fc2hvcnQiIH4gNSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX2xvbmciIH4gNiwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJzaXplX2xvbmciIH4gNyksCiAgICAgICAgIG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsICJKdW5lIiwgIkF1Z3VzdCIsICJOb3ZlbWJlciIpLAogICAgICAgICB0cmFpdCA9IGZjdF9yZWxldmVsKHRyYWl0LCAidG90YWwiLCAic3VjY2VzcyIsICJwcm9kdWN0aW9uIiwgInNpemUiKSwKICAgICAgICAgZHVyYXRpb24gPSBmY3RfcmVsZXZlbChkdXJhdGlvbiwgInNob3J0IiwgImxvbmciKSwKICAgICAgICAgZ3JvdXBfSUQgPSBwYXN0ZShtb250aCwgdHJhaXQsIHNlcCA9ICJfIikpCgpGMF9kYXRhJG9yZGVyX251bWJlciA9IGZhY3RvcihGMF9kYXRhJG9yZGVyX251bWJlciwgbGV2ZWxzID0gYygxLDIsMyw0LDUsNiw3KSkKCgpGMV9kYXRhID0gYmluZF9yb3dzKEYxX3RvdGFsX2VmZmVjdF9zaXplLCBGMV9oc19lZmZlY3Rfc2l6ZSwgRjFfcmZfZWZmZWN0X3NpemUsIEYxX2JzX2VmZmVjdF9zaXplKSAlPiUgCiAgZHBseXI6OnNlbGVjdCh0cmFpdCwgZGlmZmVyZW5jZSwgYmNhX2NpX2xvdywgYmNhX2NpX2hpZ2gsIG1vbnRoLCBkdXJhdGlvbiwgZ2VuZXJhdGlvbiwgb2ZmX3RlbXApICU+JSAKICBtdXRhdGUoIm9yZGVyX2NvZGUiID0gcGFzdGUodHJhaXQsIGR1cmF0aW9uLCBzZXAgPSAiXyIpLAogICAgICAgICAib3JkZXJfbnVtYmVyIiA9IGNhc2Vfd2hlbigKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJlcHJfc2hvcnQiIH4gMSwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJlcHJfbG9uZyIgfiAyLAogICAgICAgICAgIG9yZGVyX2NvZGUgPT0gInN1Y2Nlc3Nfc2hvcnQiIH4gMywKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJzdWNjZXNzX2xvbmciIH4gNCwKICAgICAgICAgICBvcmRlcl9jb2RlID09ICJwcm9kdWN0aW9uX3Nob3J0IiB+IDUsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAicHJvZHVjdGlvbl9sb25nIiB+IDYsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAiYm9keSBzaXplX3Nob3J0IiB+IDcsCiAgICAgICAgICAgb3JkZXJfY29kZSA9PSAiYm9keSBzaXplX2xvbmciIH4gOCksCiAgICAgICAgIHRyYWl0ID0gaWZfZWxzZSh0cmFpdCA9PSAiZXByIiwgInRvdGFsIiwgdHJhaXQpLAogICAgICAgICBtb250aCA9IGZjdF9yZWxldmVsKG1vbnRoLCAiSnVuZSIsICJBdWd1c3QiLCAiTm92ZW1iZXIiKSwKICAgICAgICAgdHJhaXQgPSBmY3RfcmVsZXZlbCh0cmFpdCwgInRvdGFsIiwgInN1Y2Nlc3MiLCAicHJvZHVjdGlvbiIsICJzaXplIiksCiAgICAgICAgIGR1cmF0aW9uID0gZmN0X3JlbGV2ZWwoZHVyYXRpb24sICJzaG9ydCIsICJsb25nIikpCgoKRjFfZGF0YSRvcmRlcl9udW1iZXIgPSBmYWN0b3IoRjFfZGF0YSRvcmRlcl9udW1iZXIsIGxldmVscyA9IGMoMSwyLDMsNCw1LDYsNyw4KSkKCiNUb3Agcm93IC0gRjAgKGRpcmVjdCBlZmZlY3RzKQp4LmF4aXNfbGFiZWxzID0gYygiMSIgPSAic2hvcnQiLCAiMiIgPSAibG9uZyIsICIzIiA9ICJzaG9ydCIsICI0IiA9ICJsb25nIiwgCiAgICAgICAgICAgICAgICAgICI1IiA9ICJzaG9ydCIsICI2IiA9ICJsb25nIiwgIjciID0gInNob3J0IiwgIjgiID0gImxvbmciKQoKRjBfZ3JpZCA9IGdncGxvdChGMF9kYXRhLCBhZXMoeCA9IGR1cmF0aW9uLCB5ID0gZGlmZmVyZW5jZSwgY29sb3VyID0gdHJhaXQsIGdyb3VwID0gZ3JvdXBfSUQpKSArIAogIGZhY2V0X2dyaWQoLiB+IG1vbnRoKSArIAogIGdlb21fbGluZShwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC43KSwKICAgICAgICAgICAgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwLCBjb2xvdXIgPSAiYmxhY2siLCBzaXplID0gMC4zKSArCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IGJjYV9jaV9sb3csIHltYXggPSBiY2FfY2lfaGlnaCksIHdpZHRoID0gMCwgc2l6ZSA9IDEsIAogICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuNykpICsgCiAgZ2VvbV9wb2ludChzaXplID0gNCwgZmlsbCA9ICJ3aGl0ZSIsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjcpKSArIAogIHNjYWxlX3NoYXBlX21hbnVhbCh2YWx1ZXMgPSBjKCJsb25nIiA9IDE2LCAic2hvcnQiID0gMjEpKSArIAogIHNjYWxlX3hfZGlzY3JldGUobGFiZWxzPSB4LmF4aXNfbGFiZWxzKSArCiAgc2NhbGVfY29sb3VyX21hbnVhbCh2YWx1ZXMgPSBjKCJzaXplIiA9ICJkYXJrZ3JleSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJzdWNjZXNzIiA9ICJnb2xkIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgInByb2R1Y3Rpb24iID0gImZvcmVzdGdyZWVuIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgInRvdGFsIiA9ICJjb3JuZmxvd2VyYmx1ZSIpKSArICAKICB4bGFiKCIiKSArCiAgeWxhYigiRWZmZWN0IFNpemVcbkhlYXR3YXZlIC0gQ29udHJvbCIpICsgCiAgdGhlbWVfYncoYmFzZV9zaXplID0gMTIpICsgCiAgdGhlbWUocGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiksCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSAtNDUsIGhqdXN0ID0gMCwgdmp1c3QgPSAwLjUpLAogICAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKCiNGb2xsb3dpbmcgdGhyZWUgcm93cyAtIEYxICh0cmFuc2dlbmVyYXRpb24gLyBpbmRpcmVjdCBlZmZlY3RzKQpGMV9ncmlkID0gZ2dwbG90KEYxX2RhdGEsIGFlcyh4ID0gZHVyYXRpb24sIHkgPSBkaWZmZXJlbmNlLCBjb2xvdXIgPSB0cmFpdCwgZ3JvdXAgPSB0cmFpdCkpICsgCiAgZmFjZXRfZ3JpZChvZmZfdGVtcCB+IG1vbnRoLCApICsgCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCwgY29sb3VyID0gImJsYWNrIiwgc2l6ZSA9IDAuMykgKwogIGdlb21fbGluZShwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC41KSwKICAgICAgICAgICAgbGluZXdpZHRoID0gMSkgKyAKICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gYmNhX2NpX2xvdywgeW1heCA9IGJjYV9jaV9oaWdoKSwgd2lkdGggPSAwLCBzaXplID0gMSwKICAgICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjUpKSArIAogIGdlb21fcG9pbnQoc2l6ZSA9IDMsIGZpbGwgPSAid2hpdGUiLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC41KSkgKyAKICBzY2FsZV9zaGFwZV9tYW51YWwodmFsdWVzID0gYygibG9uZyIgPSAxNiwgInNob3J0IiA9IDIxKSkgKyAKICB4bGltKDAuNSw0LjUpICsgCiAgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9IHguYXhpc19sYWJlbHMpICsKICBzY2FsZV9jb2xvdXJfbWFudWFsKHZhbHVlcyA9IGMoInNpemUiID0gImRhcmtncmV5IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgInN1Y2Nlc3MiID0gImdvbGQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAicHJvZHVjdGlvbiIgPSAiZm9yZXN0Z3JlZW4iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAidG90YWwiID0gImNvcm5mbG93ZXJibHVlIikpICsgCiAgeGxhYigiIikgKwogIHlsYWIoIkVmZmVjdCBTaXplIFxuSGVhdHdhdmUgLSBDb250cm9sIikgKyAKICB0aGVtZV9idyhiYXNlX3NpemUgPSAxMikgKyAKICB0aGVtZShwYW5lbC5ncmlkID0gZWxlbWVudF9ibGFuaygpLAogICAgICAgIHN0cmlwLmJhY2tncm91bmQueCA9IGVsZW1lbnRfYmxhbmsoKSwKICAgICAgICBzdHJpcC50ZXh0LnggPSBlbGVtZW50X2JsYW5rKCksCiAgICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KGNvbG91ciA9ICJibGFjayIpLAogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gLTQ1LCBoanVzdCA9IDAsIHZqdXN0ID0gMC41KSkKCmdnYXJyYW5nZShGMF9ncmlkLCBGMV9ncmlkLCBucm93ID0gMiwgbmNvbCA9IDEsIGhlaWdodHMgPSBjKDAuMzUsMSksIGNvbW1vbi5sZWdlbmQgPSBULCBsZWdlbmQgPSAicmlnaHQiKQpgYGAKCmBgYHtyIEYwLXByb2R1Y3Rpb24sIGZpZy5oZWlnaHQ9MTEsIGZpZy53aWR0aD04fQpGMF9mZWN1bmRpdHlfcGxvdApgYGAKCmBgYHtyIEYwLWR1cmF0aW9uLWVmZmVjdHMsIGZpZy53aWR0aD04LCBmaWcuaGVpZ2h0PTh9CiNFZmZlY3Qgb2YgaGVhdHdhdmUgZHVyYXRpb24gV0lUSElOIHRyZWF0bWVudApGMF9kdXJfc3VtbWFyeSAlPiUgCiAgbXV0YXRlKG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsIGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gbW9udGgsIGZpbGwgPSB0cmVhdG1lbnQsIHkgPSBkaWZmZXJlbmNlKSkgKyAKICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuOSksIGNvbG91ciA9ICJibGFjayIsIHNpemUgPSAxKSArIAogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBiY2FfY2lfbG93LCB5bWF4ID0gYmNhX2NpX2hpZ2gpLAogICAgICAgICAgICAgICAgd2lkdGggPSAwLjEsIHNpemUgPSAxLAogICAgICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuOSkpICsgCiAgZ2VvbV9obGluZSh5aW50ZXJjZXB0ID0gMCkgKyAKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCJncmV5MzAiLCAid2hpdGUiKSkgKyAKICBsYWJzKHggPSAiIiwKICAgICAgIHkgPSAiRWZmZWN0IFNpemUgKEhlZGdlJ3MgZykgXG4gTG9uZyAtIFNob3J0IGV2ZW50cyIpICsgCiAgdGhlbWVfcHVicihiYXNlX3NpemUgPSAxOCkKYGBgCgpgYGB7ciBGMS1kdXJhdGlvbi1lZmZlY3RzLCBmaWcud2lkdGg9OCwgZmlnLmhlaWdodD04fQojIEhvdyBkb2VzIGhlYXQgd2F2ZSBkdXJhdGlvbiBhZmZlY3QgdHJhbnNnZW5lcmF0aW9uYWwgZWZmZWN0cz8gUmVhY3Rpb24gbm9ybXMgc2hvd24gYmVsb3cgZm9yIGVmZmVjdCBzaXplIGNvbXBhcmlzb25zIChoZWF0d2F2ZSAtIGNvbnRyb2wpIGZvciBkaWZmZXJlbnQgZHVyYXRpb24gb2YgcGFyZW50YWwgZXhwb3N1cmUKRjFfZGF0YSAlPiUgCiAgZHBseXI6OnNlbGVjdChtb250aCwgZHVyYXRpb24sIG9mZl90ZW1wLCB0cmFpdCwgZGlmZmVyZW5jZSwgYmNhX2NpX2xvdywgYmNhX2NpX2hpZ2gpICU+JSAKICBtdXRhdGUoIklEIiA9IHBhc3RlKG1vbnRoLCBvZmZfdGVtcCwgdHJhaXQsIHNlcCA9ICJfIiksCiAgICAgICAgIG1vbnRoID0gZmN0X3JlbGV2ZWwobW9udGgsIGMoIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikpLAogICAgICAgICBkdXJhdGlvbiA9IGZjdF9yZWxldmVsKGR1cmF0aW9uLCBjKCJzaG9ydCIsICJsb25nIikpKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZHVyYXRpb24sIHkgPSBkaWZmZXJlbmNlLCBjb2xvdXIgPSBtb250aCwgZ3JvdXAgPSBJRCkpICsgCiAgZmFjZXRfd3JhcCh0cmFpdH4uKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDApICsgCiAgZ2VvbV9saW5lKHNpemUgPSAxLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4xKSkgKyAKICBnZW9tX3BvaW50KHNpemUgPSAyLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4xKSkgKyAKICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gYmNhX2NpX2xvdywgeW1heCA9IGJjYV9jaV9oaWdoKSwKICAgICAgICAgICAgICAgIHNpemUgPSAwLjc1LCB3aWR0aCA9IDAuMSwKICAgICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGxhYnMoeCA9ICJQYXJlbnRhbCBFeHBvc3VyZSBEdXJhdGlvbiIsIAogICAgICAgeSA9ICJFZmZlY3QgU2l6ZSAoSGVkZ2UncyBnKSBcbiBIZWF0d2F2ZSAtIENvbnRyb2wiKSArIAogIHlsaW0oLTUsNSkgKyAKICB0aGVtZV9wdWJyKGJhc2Vfc2l6ZSA9IDE4KQpgYGAKCgpgYGB7ciBzaWctRjEtZHVyYXRpb24tZWZmZWN0cywgZmlnLndpZHRoPTgsIGZpZy5oZWlnaHQ9OH0KI1B1bGxzIG91dCByZWFjdGlvbiBub3JtcyB3aGVyZSB0aGVyZSdzIGEgc2lnbiBjaGFuZ2UgKGNoYW5nZXMgZnJvbSBwb3NpdGl2ZSwgbmV1dHJhbCwgb3IgbmVnYXRpdmUgYmV0d2VlbiBkdXJhdGlvbiBncm91cHMpIAoKZHVyYXRpb25fZWZmZWN0cyA9IEYxX2RhdGEgJT4lIAogIGRwbHlyOjpzZWxlY3QobW9udGgsIGR1cmF0aW9uLCBvZmZfdGVtcCwgdHJhaXQsIGRpZmZlcmVuY2UsIGJjYV9jaV9sb3csIGJjYV9jaV9oaWdoKSAlPiUgCiAgbXV0YXRlKCJJRCIgPSBwYXN0ZShtb250aCwgb2ZmX3RlbXAsIHRyYWl0LCBzZXAgPSAiXyIpLAogICAgICAgICBtb250aCA9IGZjdF9yZWxldmVsKG1vbnRoLCBjKCJKdW5lIiwgIkF1Z3VzdCIsICJOb3ZlbWJlciIpKSwKICAgICAgICAgZHVyYXRpb24gPSBmY3RfcmVsZXZlbChkdXJhdGlvbiwgYygic2hvcnQiLCAibG9uZyIpKSkgJT4lIAogIGdyb3VwX2J5KElELCB0cmFpdCwgZHVyYXRpb24pICU+JSAgCiAgbXV0YXRlKCJ6ZXJvX2RpZmYiID0gY2FzZV93aGVuKAogICAgc2lnbihiY2FfY2lfbG93KSA9PSBzaWduKGJjYV9jaV9oaWdoKSB+ICJkb2VzIG5vdCBvdmVybGFwIHplcm8iLAogICAgc2lnbihiY2FfY2lfbG93KSAhPSBzaWduKGJjYV9jaV9oaWdoKSB+ICJvdmVybGFwcyB6ZXJvIgogICkpICU+JSAKICB1bmdyb3VwKGR1cmF0aW9uKSAlPiUgCiAgbXV0YXRlKCJjaGFuZ2UiID0gY2FzZV93aGVuKAogICAgc2lnbihkaWZmZXJlbmNlKVsxXSA9PSBzaWduKGRpZmZlcmVuY2UpWzJdICYgemVyb19kaWZmWzFdID09IHplcm9fZGlmZlsyXSB+ICJTYW1lIiwKICAgIHNpZ24oZGlmZmVyZW5jZSlbMV0gIT0gc2lnbihkaWZmZXJlbmNlKVsyXSAmIHplcm9fZGlmZlsxXSA9PSAib3ZlcmxhcHMgemVybyIgJiB6ZXJvX2RpZmZbMl0gPT0gIm92ZXJsYXBzIHplcm8iIH4gIlNhbWUiLAogICAgc2lnbihkaWZmZXJlbmNlKVsxXSAhPSBzaWduKGRpZmZlcmVuY2UpWzJdICYgemVyb19kaWZmWzFdID09IHplcm9fZGlmZlsyXSAmIHplcm9fZGlmZlsxXSA9PSAiZG9lcyBub3Qgb3ZlcmxhcCB6ZXJvIiB+ICJEaWZmZXJlbnQiLAogICAgc2lnbihkaWZmZXJlbmNlKVsxXSAhPSBzaWduKGRpZmZlcmVuY2UpWzJdICYgemVyb19kaWZmWzFdICE9IHplcm9fZGlmZlsyXSB+ICJEaWZmZXJlbnQiLAogICAgc2lnbihkaWZmZXJlbmNlKVsxXSA9PSBzaWduKGRpZmZlcmVuY2UpWzJdICYgemVyb19kaWZmWzFdICE9IHplcm9fZGlmZlsyXSB+ICJEaWZmZXJlbnQiCiAgKSkgJT4lIAogIGFycmFuZ2UobW9udGgsIG9mZl90ZW1wLCB0cmFpdCkgJT4lIAogIGZpbHRlcihjaGFuZ2UgPT0gIkRpZmZlcmVudCIpCgpzZWxlY3Rfcm5vcm1zID0gZHVyYXRpb25fZWZmZWN0cyAlPiUgCiAgZHBseXI6OnNlbGVjdCgtZHVyYXRpb24sIC1kaWZmZXJlbmNlLCAtYmNhX2NpX2xvdywgLWJjYV9jaV9oaWdoLCAtSUQsIC16ZXJvX2RpZmYpICU+JSAKICBkaXN0aW5jdCgpCgpzaWdfY2hhbmdlcyA9IEYxX2RhdGEgJT4lIAogIGRwbHlyOjpzZWxlY3QobW9udGgsIGR1cmF0aW9uLCBvZmZfdGVtcCwgdHJhaXQsIGRpZmZlcmVuY2UsIGJjYV9jaV9sb3csIGJjYV9jaV9oaWdoKSAlPiUgCiAgbXV0YXRlKCJJRCIgPSBwYXN0ZShtb250aCwgb2ZmX3RlbXAsIHRyYWl0LCBzZXAgPSAiXyIpLAogICAgICAgICBtb250aCA9IGZjdF9yZWxldmVsKG1vbnRoLCBjKCJKdW5lIiwgIkF1Z3VzdCIsICJOb3ZlbWJlciIpKSwKICAgICAgICAgZHVyYXRpb24gPSBmY3RfcmVsZXZlbChkdXJhdGlvbiwgYygic2hvcnQiLCAibG9uZyIpKSkgJT4lIAogIGZpbHRlcihJRCAlaW4lIHNlbGVjdF9ybm9ybXMkSUQpCgpnZ3Bsb3Qoc2lnX2NoYW5nZXMsIGFlcyh4ID0gZHVyYXRpb24sIHkgPSBkaWZmZXJlbmNlLCBjb2xvdXIgPSBtb250aCwgZ3JvdXAgPSBJRCkpICsgCiAgZmFjZXRfd3JhcCh0cmFpdH4uKSArIAogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDApICsgCiAgZ2VvbV9saW5lKHNpemUgPSAxLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4xKSkgKyAKICBnZW9tX3BvaW50KHNpemUgPSAyLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKHdpZHRoID0gMC4xKSkgKyAKICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gYmNhX2NpX2xvdywgeW1heCA9IGJjYV9jaV9oaWdoKSwKICAgICAgICAgICAgICAgIHNpemUgPSAwLjc1LCB3aWR0aCA9IDAuMSwKICAgICAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjEpKSArIAogIGdlb21fbGFiZWxfcmVwZWwoZGF0YSA9IHNpZ19jaGFuZ2VzICU+JSBmaWx0ZXIoZHVyYXRpb24gPT0gImxvbmciKSwgCiAgICAgICAgICAgICAgICAgICBhZXMobGFiZWwgPSBvZmZfdGVtcCwgCiAgICAgICAgICAgICAgICAgICAgICAgeCA9IGR1cmF0aW9uLAogICAgICAgICAgICAgICAgICAgICAgIHkgPSBkaWZmZXJlbmNlLCAKICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9IG1vbnRoKSwKICAgICAgICAgICAgICAgICAgIGJveC5wYWRkaW5nID0gMC41LAogICAgICAgICAgICAgICAgICAgbnVkZ2VfeCA9IDAuMiwKICAgICAgICAgICAgICAgICAgIHNpemUgPSA3LAogICAgICAgICAgICAgICAgICAgc2hvdy5sZWdlbmQ9RkFMU0UpICsgCiAgbGFicyh4ID0gIlBhcmVudGFsIEV4cG9zdXJlIER1cmF0aW9uIiwgCiAgICAgICB5ID0gIkVmZmVjdCBTaXplIChIZWRnZSdzIGcpXG5IZWF0d2F2ZSAtIENvbnRyb2wiKSArIAogIHlsaW0oLTUsNSkgKyAKICB0aGVtZV9wdWJyKGJhc2Vfc2l6ZSA9IDE4KQpgYGAKCgpgYGB7cn0KcmRhdGEgPSBmaWxlX2xpc3Rbc3RyX2RldGVjdChmaWxlX2xpc3QsIHBhdHRlcm4gPSAiLlJEYXRhIildCmYxX2RhdGEgPSByZGF0YVtzdHJfZGV0ZWN0KHJkYXRhLCBwYXR0ZXJuID0gIkYwXyIsIG5lZ2F0ZSA9IFQpXSAlPiUgCiAgc3RyX3NwbGl0X2ZpeGVkKHBhdHRlcm4gPSAiLlJEYXRhIiwgbiA9IDIpCmYxX2RhdGEgPSBmMV9kYXRhWywxXQoKcGxvdF9uYW1lcyA9IGMoKQpmb3IoaSBpbiAxOmxlbmd0aChmMV9kYXRhKSl7CiAgcGxvdF9uYW1lID0gcGFzdGUoZjFfZGF0YVtpXSwgIl9wbG90Iiwgc2VwID0gIiIpCiAgcGxvdF9uYW1lcyA9IGMocGxvdF9uYW1lcywgcGxvdF9uYW1lKQogIG1ldHJpYyA9IHN0cl9zcGxpdF9maXhlZChwbG90X25hbWUsIHBhdHRlcm4gPSAiXyIsIG4gPSA0KVssMl0KICAKICBpZihtZXRyaWMgPT0gInRvdGFsIil7CiAgICBsYWJlbCA9ICJFZ2cgUHJvZHVjdGlvbiAocGVyIGZlbWFsZSkiCiAgfQogIAogIGlmKG1ldHJpYyA9PSAicmYiKXsKICAgIGxhYmVsID0gIlByb2R1Y3Rpb24gKHBlciBmZW1hbGUpIgogIH0KICAKICBpZihtZXRyaWMgPT0gImhzIil7CiAgICBsYWJlbCA9ICJIYXRjaGluZyBTdWNjZXNzICglKSIKICB9CiAgCiAgaWYobWV0cmljID09ICJicyIpewogICAgbGFiZWwgPSAiQm9keSBTaXplIChtbSkiCiAgfQogIAogIGFzc2lnbihwbG90X25hbWUsCiAgICAgICAgIHBsb3QoZ2V0KGYxX2RhdGFbaV0pLCAKICAgICAgICAgICAgICBlZmZzaXplLm1hcmtlcnNpemUgPSAyLAogICAgICAgICAgICAgIGF4ZXMudGl0bGUuZm9udHNpemUgPSA5LAogICAgICAgICAgICAgIHRpY2suZm9udHNpemUgPSA2LAogICAgICAgICAgICAgIHN3YXJtcGxvdC5wYXJhbXMgPSBwYXJhbV9saXN0LAogICAgICAgICAgICAgIHJhd3Bsb3QueWxhYmVsID0gbGFiZWwsCiAgICAgICAgICAgICAgdGhlbWUgPSBnZ3B1YnI6OnRoZW1lX3B1YnIoKSkpCn0KCmJzX3Bsb3RzID0gcGxvdF9uYW1lc1tzdHJfZGV0ZWN0KHBsb3RfbmFtZXMsIHBhdHRlcm4gPSAiX2JzXyIpXQpyZl9wbG90cyA9IHBsb3RfbmFtZXNbc3RyX2RldGVjdChwbG90X25hbWVzLCBwYXR0ZXJuID0gIl9yZl8iKV0KdG90YWxfcGxvdHMgPSBwbG90X25hbWVzW3N0cl9kZXRlY3QocGxvdF9uYW1lcywgcGF0dGVybiA9ICJfdG90YWxfIildCmhzX3Bsb3RzID0gcGxvdF9uYW1lc1tzdHJfZGV0ZWN0KHBsb3RfbmFtZXMsIHBhdHRlcm4gPSAiX2hzXyIpXQpgYGAKCmBgYHtyIEYxLWJvZHktc2l6ZS1lZmYtcGxvdHMsIGZpZy5oZWlnaHQ9MTEsIGZpZy53aWR0aD04fQpnZ2FycmFuZ2UoSnVuZV9ic19zaG9ydF9wbG90LCBKdW5lX2JzX2xvbmdfcGxvdCwgCiAgICAgICAgICBBdWd1c3RfYnNfc2hvcnRfcGxvdCwgQXVndXN0X2JzX2xvbmdfcGxvdCwKICAgICAgICAgIE5vdmVtYmVyX2JzX3Nob3J0X3Bsb3QsIE5vdmVtYmVyX2JzX2xvbmdfcGxvdCwKICAgICAgICAgIG5jb2wgPSAyLCBucm93ID0gMywKICAgICAgICAgIGxhYmVscyA9ICJBVVRPIiwKICAgICAgICAgIHZqdXN0ID0gLTAuMikKYGBgCgpgYGB7ciBGMS10b3RhbC1lcHItZWZmLXBsb3RzLCBmaWcuaGVpZ2h0PTExLCBmaWcud2lkdGg9OH0KZ2dhcnJhbmdlKEp1bmVfdG90YWxfc2hvcnRfcGxvdCwgSnVuZV90b3RhbF9sb25nX3Bsb3QsIAogICAgICAgICAgQXVndXN0X3RvdGFsX3Nob3J0X3Bsb3QsIEF1Z3VzdF90b3RhbF9sb25nX3Bsb3QsCiAgICAgICAgICBOb3ZlbWJlcl90b3RhbF9zaG9ydF9wbG90LCBOb3ZlbWJlcl90b3RhbF9sb25nX3Bsb3QsCiAgICAgICAgICBuY29sID0gMiwgbnJvdyA9IDMsCiAgICAgICAgICBsYWJlbHMgPSAiQVVUTyIsCiAgICAgICAgICB2anVzdCA9IC0wLjIpCmBgYAoKYGBge3IgRjEtaGF0Y2hpbmctc3VjY2Vzcy1lZmYtcGxvdHMsIGZpZy5oZWlnaHQ9MTEsIGZpZy53aWR0aD04fQpnZ2FycmFuZ2UoSnVuZV9oc19zaG9ydF9wbG90LCBKdW5lX2hzX2xvbmdfcGxvdCwgCiAgICAgICAgICBBdWd1c3RfaHNfc2hvcnRfcGxvdCwgQXVndXN0X2hzX2xvbmdfcGxvdCwKICAgICAgICAgIE5vdmVtYmVyX2hzX3Nob3J0X3Bsb3QsIE5vdmVtYmVyX2hzX2xvbmdfcGxvdCwKICAgICAgICAgIG5jb2wgPSAyLCBucm93ID0gMywKICAgICAgICAgIGxhYmVscyA9ICJBVVRPIiwKICAgICAgICAgIHZqdXN0ID0gLTAuMikKYGBgCgpgYGB7ciBGMS1wcm9kdWN0aW9uLWVmZi1wbG90cywgZmlnLmhlaWdodD0xMSwgZmlnLndpZHRoPTh9CmdnYXJyYW5nZShKdW5lX3JmX3Nob3J0X3Bsb3QsIEp1bmVfcmZfbG9uZ19wbG90LCAKICAgICAgICAgIEF1Z3VzdF9yZl9zaG9ydF9wbG90LCBBdWd1c3RfcmZfbG9uZ19wbG90LAogICAgICAgICAgTm92ZW1iZXJfcmZfc2hvcnRfcGxvdCwgTm92ZW1iZXJfcmZfbG9uZ19wbG90LAogICAgICAgICAgbmNvbCA9IDIsIG5yb3cgPSAzLAogICAgICAgICAgbGFiZWxzID0gIkFVVE8iLAogICAgICAgICAgdmp1c3QgPSAtMC4yKQpgYGAKCmBgYHtyIEYxLWJvZHktc2l6ZS12cy10ZW1wZXJhdHVyZX0Kc2Vhc29uYWxfY29scyA9IGMoIkp1bmUiID0gIiNFNjlGMDAiLCAiQXVndXN0IiA9ICIjRDU1RTAwIiwgIk5vdmVtYmVyIiA9ICIjMDA3MkIyIikKRjFfZmJzJElEID0gcGFzdGUoRjFfZmJzJE1vbnRoLCBGMV9mYnMkUGFyZW50YWxfdHJlYXRtZW50LCBGMV9mYnMkRGF5LCBzZXAgPSAiXyIpCkYxX2ZicyRNb250aCA9IGZjdF9yZWxldmVsKEYxX2ZicyRNb250aCwgIkp1bmUiLCAiQXVndXN0IiwgIk5vdmVtYmVyIikKCmdncGxvdChGMV9mYnMsIGFlcyh4ID0gT2Zmc3ByaW5nX3RlbXAsIHkgPSBTaXplLCBjb2xvdXIgPSBEYXksIGdyb3VwID0gSUQpKSArIAogIGZhY2V0X2dyaWQoTW9udGh+UGFyZW50YWxfdHJlYXRtZW50KSArIAogIGdlb21faml0dGVyKHdpZHRoID0gMC41LCBzaXplID0gMS42LCBhbHBoYSA9IDAuNCkgKwogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIHNpemUgPSAxLjQsIGFscGhhID0gMC4yKSArIAogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBjKDEyLDE3LDIyKSkgKyAKICB0aGVtZV9idygpICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IiwKICAgICAgICAgICAgICAgICAgICAgcGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSkKYGBgCg==